home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 18.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-27  |  1.5 KB  |  62 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16. call GetQuad()
  17. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  18. call writeln TempFile,Quad1
  19. call writeln TempFile,Quad2
  20. call writeln TempFile,Quad3
  21. call writeln TempFile,Quad4
  22. call close TempFile
  23.  
  24. exit
  25.  
  26.  
  27.  
  28. GetQuad:
  29.     text1 = '"Top Left"'
  30.     text2 = '""'
  31.     text3 = '"Bottom Left"'
  32.     text4 = '""'
  33.     textA = '"Top Right"'
  34.     textB = '"Bottom Right"'
  35.  
  36.     Gadget.1 = 'CYCLE LE=105 TE=4 WD=50 HT=16 LB='text1' IN=0 " 1 / 2 / 3 / 4 "'
  37.     Gadget.2  = 'CYCLE LE=204 TE=4 WD=50 HT=16 LB='text2' IN=2 " 1 / 2 / 3 / 4 "'
  38.     Gadget.3  = 'CYCLE LE=105 TE=24 WD=50 HT=16 LB='text3' IN=3 " 1 / 2 / 3 / 4 "'
  39.     Gadget.4 = 'CYCLE LE=204 TE=24 WD=50 HT=16 LB='text4' IN=1 " 1 / 2 / 3 / 4 "'
  40.     Gadget.5 = 'TEXT LE = 260 TE=8 WD=50 HT=16 LB='textA' PN=1 JU =0'
  41.     Gadget.6 = 'TEXT LE = 260 TE=28 WD=50 HT=16 LB='textB' PN=1 JU =0'
  42.     Gadget.7 = 'END'
  43.     NewComplexRequest  '"Select Order For Quadrant Fade!"' Gadget 367 46
  44.     if rc ~= 0 then do
  45.         Quad1 = 1
  46.         Quad2 = 3
  47.         Quad3 = 4
  48.         Quad4 = 2
  49.         end
  50.     else do
  51.         Quad1 = RESULT.1+1
  52.         Quad2 = RESULT.2+1
  53.         Quad3 = RESULT.3+1
  54.         Quad4 = RESULT.4+1
  55.     end
  56.  
  57.     if Quad1 = Quad2 | Quad1 = Quad3 | Quad1 = Quad4 | Quad2 = Quad3 | Quad2 = Quad4 | Quad3 = Quad4 then do
  58.         RequestNotify "Each Quadrant MUST Have A Different Number!"
  59.         call GetQuad()
  60.     end
  61. return
  62.